Location:
Search - delphi dhtmleve
Search list
Description: unit Cweb2
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, SHDocVw, StdCtrls, ActiveX
type
TForm1 = class(TForm)
WebBrowser1: TWebBrowser
procedure FormCreate(Sender: TObject)
procedure WebBrowser1DocumentComplete(Sender: TObject
const pDisp: IDispatch var URL: OleVariant)
procedure DemoEventSink(Sender: TObject)
private
public
{ Public declarations }
end
var
Form1: TForm1
implementation
{$R *.dfm}
uses MSHTML, IEDocHostUIHandler, IEConst, DHTMLEvent,comobj
var
FDocHostUIHandler: TDocHostUIHandler //为屏蔽右键菜单
Doc : IHTMLDocument2
Element : IHTMLElement
EventSink: TDHTMLEvent
procedure TForm1.FormCreate(Sender: TObject)
begin
FDocHostUIHandler := TDocHostUIHandler.Create //为屏蔽右键菜单
EventSink := TDHTMLEvent.Create
WebBrowser1.Navigate(GetCurrentDir + \index.htm )
end
procedure TForm1.DemoEventSink(Sender: TObject)
Var
S:String
-unit Cweb2 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls. SHDocVw, StdCtrls. ActiveX type TForm1 = class (TForm) WebBrowser 1 : TWebBrowser procedure FormCreate (Sender : TObject) procedure WebBrowser1DocumentComp lete (Sender : TObject const pDisp : IDispatch var URL : OleVariant) procedure DemoEventSink (Sender : TObject) private public (Public declaration s) var end Form1 : TForm1 implementation ($ R*. dfm) uses MSHTML , IEDocHostUIHandler, IEConst, DHTMLEven t, comobj var FDocHostUIHandler : TDocHostUIHandler// right-click menu for shielding Doc : IHTMLDocument2 Element : IHTMLElement EventSink : TDHTMLEvent procedure TForm1.FormCreate ( Sender : TObject) begin FDocHostUIHandler : = TDocHostUIHandler.Create// right-clic
Platform: |
Size: 19456 |
Author: |
Hits: